home *** CD-ROM | disk | FTP | other *** search
/ dub Media Cool Graphics / Dub Media - Cool Graphics.iso / SBdemo / WLD / ZZADEMO.WLD < prev   
Text File  |  1997-01-28  |  19KB  |  570 lines
  1. START_WLD = SOCHAT_WLD
  2. DISKID=1
  3. DISKAUDIO=$SBARDIR\GENERAL\CHADIS1.WAV
  4.  
  5. //    ID     X  Y  FileName
  6. CURSOR 0  = 15 15 $SBARDIR\ZZAZZL\CURSORS\NOT.BMP
  7. CURSOR 1  = 13  1 $SBARDIR\ZZAZZL\CURSORS\ZZAZZL.BMP
  8. CURSOR 2  =  9  9 $SBARDIR\ZZAZZL\CURSORS\ZOOM.BMP
  9. CURSOR 5  = 16  1 $SBARDIR\ZZAZZL\CURSORS\LINK.BMP
  10. CURSOR 6  = 15 15 $SBARDIR\ZZAZZL\CURSORS\WAIT.BMP
  11. CURSOR 10 =  0  0 $SBARDIR\ZZAZZL\CURSORS\EXIT.BMP
  12. CURSOR 14 =  0 14 $SBARDIR\ZZAZZL\CURSORS\LEFT.BMP
  13. CURSOR 15 = 15  0 $SBARDIR\ZZAZZL\CURSORS\UPARROW.BMP
  14. CURSOR 16 = 31 15 $SBARDIR\ZZAZZL\CURSORS\RIGHT.BMP
  15. CURSOR 17 = 15 31 $SBARDIR\ZZAZZL\CURSORS\DOWN.BMP
  16. CURSOR 18 = 16  1 $SBARDIR\ZZAZZL\CURSORS\HUMAN.BMP
  17. CURSOR 19 = 15 15 $SBARDIR\ZZAZZL\CURSORS\BARNOT.BMP
  18. CURSOR 20 = 15 15 $SBARDIR\ZZAZZL\CURSORS\BEXIT.BMP
  19. // Wield cursors
  20. CURSOR 24 = 27  1 $SBARDIR\BAR\CURSORS\LINK.BMP
  21.  
  22. // moved to GLOBAL.WLD for state save/restore
  23. // set ZzazzlVision ON as default
  24. // VAR ZZAZZLVISION = 1
  25.  
  26. // these may not be saved/restored properly
  27. VAR    HAIRINDRAIN = FALSE
  28. VAR ZDPFLOODED = FALSE
  29. VAR ZJPFLOODED = FALSE
  30.  
  31. VAR Z_CURLOC = ZAP
  32. VAR EGGLOC = ZAP            // Egg starts in Great Hall
  33. VAR EGGROLL = ZZZ            // Which room to roll the egg to
  34.  
  35. // For Egg
  36. VAR    EGGTIMER AS TIMER = 0
  37. VAR EGGINRIVER = FALSE
  38. VAR EGGONTRACKS = FALSE
  39.  
  40. // For Hairball
  41. VAR    HAIRINRIVER = FALSE
  42. VAR HAIRTIMER AS TIMER = 0
  43.  
  44. // For Cannon
  45. VAR    PLUNGERMOUNTED = FALSE
  46. VAR    SPEARMOUNTED = TRUE
  47. VAR    CANNONFIRED = FALSE
  48. VAR    FIRSTSPEAR = TRUE
  49. VAR    PLUNGEDEGG = FALSE
  50.  
  51. VAR FIRSTGRATEENTER = TRUE
  52. VAR    ZVENTGRATELOCKED = TRUE
  53. VAR    ZVENTGRATEOPEN = FALSE
  54. VAR    GATEONELOCKED = TRUE
  55. VAR    GATETWOLOCKED = TRUE
  56. VAR    GATETHREELOCKED = TRUE
  57. VAR    GATEFOURLOCKED = TRUE
  58. VAR    GATEONECOUNT AS TIMER = 0
  59. VAR    GATETWOCOUNT AS TIMER = 0
  60. VAR    GATETHREECOUNT AS TIMER = 0
  61. VAR    GATEFOURCOUNT AS TIMER = 0
  62.  
  63. VAR    ZHAVESNACK = FALSE
  64.  
  65. // For Pike
  66. VAR    PIKEINRACK = TRUE
  67.  
  68. // For Maze Doors
  69. VAR    BLACKDOORS = FALSE
  70. VAR    GREENDOORS = FALSE
  71. VAR    BROWNDOORS = FALSE
  72. VAR    YELLOWDOORS = FALSE
  73. VAR    SLIDEDOORS = FALSE
  74. VAR DOORTEMP = FALSE
  75. VAR    BUTTONSDOWN = 0
  76. VAR BUTTONONE = 0
  77. VAR BUTTONTWO = 0
  78. VAR BUTTONTHREE = 0
  79. VAR    NEWBUTTON = 0
  80. VAR    BUTTONHIT = FALSE
  81. VAR    BUTTONRELEASED = FALSE
  82. VAR    BUTTONTEMP = 0
  83.  
  84. // For flooding events
  85. VAR    ZDPFLOODTIMER AS TIMER = 0
  86. VAR    ZJPFLOODTIMER AS TIMER = 0
  87.  
  88. // For Zzazzl telepathic messages
  89. VAR ZZATEL = FALSE                // don't start until chat done
  90. VAR TELEPATH = 1                // if it's time to play a message
  91. VAR MESSAGE = 0                    // Which message to play
  92. VAR NUMMESSAGES = 0                // Number of messages to play 1-to-n
  93. VAR TELCOUNT = 602                // Messages start after a couple of turns
  94.  
  95. VAR ZTURNCOUNT AS TIMER = 600
  96.  
  97. // jwl 11.18.96 PDA save state information
  98. VAR PDAMODE = NOMODE
  99. VAR PDAPOSITION = DOWN
  100. VAR PDAINCREMENT = 11
  101.  
  102. SDEV BPDA_WLD AS PDA {
  103.     SET BKG=$SBARDIR\ZZAZZL\PDA\ZPDA.BMP;
  104.     SET ARE=DEACTIVE[90,70,500,185]{
  105.         RUN COMMAND = DEACTIVATEPDA;
  106.     };
  107.     SET BUT=$SBARDIR\ZZAZZL\PDA\ZMAP.BMP    [121,233]+1^100%1;
  108.     SET BUT=$SBARDIR\ZZAZZL\PDA\ZSTASH.BMP    [170,233]+1^101%1;
  109.     SET BUT=$SBARDIR\ZZAZZL\PDA\ZZOOM.BMP    [223,233]+1^102 %1 {
  110.         // DEMO: zoom brings up not included message -- bar 01-23-97
  111.         SET TXT = $SBARDIR\GENERAL\NOTINCL.TXT COLOR 2 AS CAPTION;
  112.     };
  113.     SET BUT=$SBARDIR\ZZAZZL\PDA\ZSYSTEM.BMP    [271,233]+1^103%1;
  114.     SET BUT=$SBARDIR\ZZAZZL\PDA\ZLOG.BMP    [323,234]+1^104%1;
  115.     SET CHR=$SBARDIR\ZZAZZL\PDA\ZWAND.SMK^WANDANIM LOOP 0[1,32];
  116.     SET TIME=$SBARDIR\ZZAZZL\PDA\ZTIME.BMP[413,188]^CLOCK+11 VALUE ZTURNCOUNT;
  117. }
  118.  
  119. SDEV BWIELD_WLD AS WIELD {
  120.     SET BKG=$SBARDIR\ZZAZZL\WIELD\ZZYOU.BMP;
  121.     SET ARE = [0,0,99,99] {
  122.         SET TXT =Soldier_714-Z-367 COLOR 2 SIZE 16 AS TITLE; //%%135
  123.         SET BMP=$SBARDIR\GENERAL\MENUS\WAIT.BMP {
  124.             RUN SND = $SBARDIR\GENERAL\WAIT.WAV; 
  125.             RUN COMMAND = UPDATE;
  126.         };
  127.         SET BMP=$SBARDIR\GENERAL\MENUS\SNAPOUT.BMP {
  128.             RUN LNK=$SBARDIR\WLD\BAR.WLD~~BDP_WLD~~SOLDIER_WLD AS CLOSEUP;
  129.         };
  130.     };
  131.     // DEMO: Removed interaction with soldier.
  132.     // DEMO: Removed interaction with the snacks.
  133.     // DEMO: Removed interaction with the plunger.
  134.     // DEMO: Removed itneraction with the pike.
  135.     // DEMO: Removed interaction with the spear.
  136.     // DEMO: Removed interaction with the fish.
  137.     // DEMO: Removed interaction with the hairball.
  138.     // DEMO: Removed interaction with the vent access card.
  139.     // DEMO: Removed interaction with the outdoor access card.
  140. }
  141.  
  142. SDEV EVT_WLD AS EVENT{
  143.  
  144.     IF (ZZATEL == TRUE)
  145.         // At the end of a turn
  146.         IF (TELCOUNT < ZTURNCOUNT)
  147.             IF (NUMMESSAGES == 0)
  148.                 RUN EXPR = NUMMESSAGES( RANDOM % 5 );        // n is 5 to start
  149.                 RUN EXPR = NUMMESSAGES( NUMMESSAGES + 1 );    // 1 to 5 is the range
  150.             ENDIF
  151.             IF ( TELEPATH == 1 )
  152.                 RUN EXPR = MESSAGE( RANDOM % 10 );
  153.                 // DEMO: Reduced number of zzazzl messages to 1 through 10.
  154.                 IF (MESSAGE == 0)
  155.                     RUN SND=$SBARDIR\ZZAZZL\EVENTS\ZZTEL1.WAV AS MIX;
  156.                     RUN EXPR = NUMMESSAGES( NUMMESSAGES - 1 );    // decrement msg 
  157.                 ENDIF
  158.                 IF (MESSAGE == 1)
  159.                     RUN SND=$SBARDIR\ZZAZZL\EVENTS\ZZTEL2.WAV AS MIX;
  160.                     RUN EXPR = NUMMESSAGES( NUMMESSAGES - 1 );    // decrement msg 
  161.                 ENDIF
  162.                 IF (MESSAGE == 2)
  163.                     RUN SND=$SBARDIR\ZZAZZL\EVENTS\ZZTEL3.WAV AS MIX;
  164.                     RUN EXPR = NUMMESSAGES( NUMMESSAGES - 1 );    // decrement msg 
  165.                 ENDIF
  166.                 IF (MESSAGE == 3)
  167.                     RUN SND=$SBARDIR\ZZAZZL\EVENTS\ZZTEL4.WAV AS MIX;
  168.                     RUN EXPR = NUMMESSAGES( NUMMESSAGES - 1 );    // decrement msg 
  169.                 ENDIF
  170.                 IF (MESSAGE == 4)
  171.                     RUN SND=$SBARDIR\ZZAZZL\EVENTS\ZZTEL5.WAV AS MIX;
  172.                     RUN EXPR = NUMMESSAGES( NUMMESSAGES - 1 );    // decrement msg 
  173.                 ENDIF
  174.                 IF (MESSAGE == 5)
  175.                     RUN SND=$SBARDIR\ZZAZZL\EVENTS\ZZTEL6.WAV AS MIX;
  176.                     RUN EXPR = NUMMESSAGES( NUMMESSAGES - 1 );    // decrement msg 
  177.                 ENDIF
  178.                 IF (MESSAGE == 6)
  179.                     RUN SND=$SBARDIR\ZZAZZL\EVENTS\ZZTEL7.WAV AS MIX;
  180.                     RUN EXPR = NUMMESSAGES( NUMMESSAGES - 1 );    // decrement msg 
  181.                 ENDIF
  182.                 IF (MESSAGE == 7)
  183.                     RUN SND=$SBARDIR\ZZAZZL\EVENTS\ZZTEL8.WAV AS MIX;
  184.                     RUN EXPR = NUMMESSAGES( NUMMESSAGES - 1 );    // decrement msg 
  185.                 ENDIF
  186.                 IF (MESSAGE == 8)
  187.                     RUN SND=$SBARDIR\ZZAZZL\EVENTS\ZZTEL9.WAV AS MIX;
  188.                     RUN EXPR = NUMMESSAGES( NUMMESSAGES - 1 );    // decrement msg 
  189.                 ENDIF
  190.                 IF (MESSAGE == 9)
  191.                     RUN SND=$SBARDIR\ZZAZZL\EVENTS\ZZTEL10.WAV AS MIX;
  192.                     RUN EXPR = NUMMESSAGES( NUMMESSAGES - 1 );    // decrement msg 
  193.                 ENDIF
  194.                 IF (NUMMESSAGES == 0)
  195.                     RUN EXPR = TELCOUNT( ZTURNCOUNT + 1 );
  196.                     // About 50% of the time
  197.                     RUN EXPR = TELEPATH( RANDOM % 2);
  198.                 ENDIF
  199.             ENDIF
  200.         ENDIF
  201.     ENDIF
  202.     // DEMO: Removed egg in river support.
  203.     // DEMO: Removed check to see if shuttle bay is flooded.
  204.     // DEMO: Removed check to see if the pool room is flooded.
  205.     // DEMO: Removed check to see if hairball has made it to the downstream pool room
  206.     // DEMO: Removed egg on tracks support.
  207. }
  208.  
  209. SDEV MAP_WLD AS BMP RECT[116,108,248,218]{
  210.     SET BKG = $SBARDIR\ZZAZZL\MAP\ZMAP.BMP;
  211.  
  212. // Soldier Icon locations
  213.     IF (Z_CURLOC == ZAP)                            
  214.         SET SPR=$SBARDIR\ZZAZZL\MAP\YOU.BMP[214,97] FRAMERATE 4 +2 %0;
  215.     ENDIF
  216.     IF (Z_CURLOC == ZBP)                            
  217.         SET SPR=$SBARDIR\ZZAZZL\MAP\YOU.BMP[121,77] FRAMERATE 4 +2 %0;
  218.     ENDIF
  219.     IF (Z_CURLOC == ZCP)                         
  220.         SET SPR=$SBARDIR\ZZAZZL\MAP\YOU.BMP[106,51] FRAMERATE 4 +2 %0;
  221.     ENDIF
  222.     IF (Z_CURLOC == ZDP)                            
  223.         SET SPR=$SBARDIR\ZZAZZL\MAP\YOU.BMP[145,94] FRAMERATE 4 +2 %0;
  224.     ENDIF
  225.     IF (Z_CURLOC == ZEB)                            
  226.         SET SPR=$SBARDIR\ZZAZZL\MAP\YOU.BMP[87,78] FRAMERATE 4 +2 %0;
  227.     ENDIF
  228.     IF (Z_CURLOC == ZEP)                            
  229.         SET SPR=$SBARDIR\ZZAZZL\MAP\YOU.BMP[51,74] FRAMERATE 4 +2 %0;
  230.     ENDIF
  231.     IF (Z_CURLOC == ZFP)                         
  232.         SET SPR=$SBARDIR\ZZAZZL\MAP\YOU.BMP[20,40] FRAMERATE 4 +2 %0;
  233.     ENDIF
  234.     IF (Z_CURLOC == ZGP)                            
  235.         SET SPR=$SBARDIR\ZZAZZL\MAP\YOU.BMP[14,9] FRAMERATE 4 +2 %0;
  236.     ENDIF
  237.     IF (Z_CURLOC == MM1)                            
  238.         SET SPR=$SBARDIR\ZZAZZL\MAP\YOU.BMP[53,14] FRAMERATE 4 +2 %0;
  239.     ENDIF
  240.     IF (Z_CURLOC == MM2)                            
  241.         SET SPR=$SBARDIR\ZZAZZL\MAP\YOU.BMP[102,30] FRAMERATE 4 +2 %0;
  242.     ENDIF
  243.     IF (Z_CURLOC == MM3)                            
  244.         SET SPR=$SBARDIR\ZZAZZL\MAP\YOU.BMP[140,52] FRAMERATE 4 +2 %0;
  245.     ENDIF
  246.     IF (Z_CURLOC == TRACK1)
  247.         SET SPR=$SBARDIR\ZZAZZL\MAP\YOU.BMP[41,6] FRAMERATE 4 +2 %0;
  248.     ENDIF
  249.     IF (Z_CURLOC == TRACK2)
  250.         SE